home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / an die 64'er (.txt) next >
Commodore BASIC  |  2022-10-26  |  7KB  |  9 lines
  1. 12 fort=4050to4095:a=a+peek(t):next:a=a+4096:printchr$(14):poke657,128
  2. 13 poke649,0:print"[147][201]dee und [208]rogramm von  [196]avid van [194]ebber ";:l=54272
  3. 14 fork=0to24:readx:pokel+k,x:next:data9,2,0,3,0,0,240,12,2,0,4,0,0,192,16,2,0
  4. 15 data6,0,0,64,0,30,243,31,120,169,16,141,20,3,169,15,141,21,3,88,96,255,0,0
  5. 16 data162,240,169,0,141,32,208,232,208,253,169,0,141,32,208,76,49,234,49
  6. 17 fort=3840to3874:readx:poket,x:nextt:sys3840:poke53281,9:forr=1to2000:nextr
  7. 18 printchr$(14);"[144][147][146]";:pokel+4,65:pokel+11,65:pokel+18,65:fort=4096toa-1
  8. 19 a$=chr$(peek(t)):printa$;:poke3859,asc(a$):forr=1to20:nextr:nextt:sys64738
  9.